function dupleto = encontraCoinc(s,lwc)
%        dupleto = encontraCoinc(s,wc)
%
%  Encontra conincidencias entre a string s(l-wc+1:l) e a sting s
%  s = [sp | sc] (sp - string de procura; sc - string de codificaçao)
%
%  Entradas ---------------
%  s    -> string de entrada (length(s) >= lwc)
%  lwc  -> dimensao da janela de procura
%
%  Saidas -----------------
%  dupleto  ->  [offset, lc] (offset - inicio da coincidencia contado desde o fim  da
%                             janela de procura; lc comprimento da coincidencia)
% 
%  

if lwc <= 0 
    error('Janela de codificaçao com comprimento %d', lwc);
end
ls = length(s);
if ls < lwc
        error('Janela de procura com comprimento negativo');
end

dupleto = [0,0];
% string de codificaçao
sc=s(ls-lwc+1:ls);

for i=1:lwc
    o = strfind(s,sc(1:i));   
    if o(1) > (ls-lwc)
        break;
    end
    dupleto = [ls-lwc+1-o(1),i];
end